home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / grapprog / splt300w.zip / TDXY.ZIP / T2-14.BAS < prev    next >
BASIC Source File  |  1990-03-21  |  230b  |  13 lines
  1. 10 OPEN "t2-14.plt" FOR OUTPUT AS #1
  2. 20 PRINT #1,"A2500,1000"
  3. 30 PRINT #1,"G500,0,360"
  4. 40 A=0
  5. 50 FOR X=1 TO 5
  6. 60  READ B
  7. 70  A=A+B
  8. 80  PRINT #1,"K";A;",500,0"
  9. 90 NEXT X
  10. 100 PRINT #1,"H"
  11. 110 DATA 35,25,20,15,5
  12. 120 END
  13.